home *** CD-ROM | disk | FTP | other *** search
- 10 rem problem #23-4 :
- 20 rem typing tutor
- 30 rem solution by gary hudach
- 40 rem
- 50 s$="the old grey fox is sly and quick":ti$="000000":prints$:forx=1tolen(s$)
- 60 getc$:ifc$=""then60
- 70 if c$<>mid$(s$,x,1)thenm=m+1
- 80 printchr$(18);chr$(145)spc(x-1)c$:printchr$(145):next:printm;ti
-